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ABSTRACT 



This paper presents the ressalt® ®£ t® isnf-lemeffit <£ hyteid 

control system at the U. S. Naval FostgradiuialEe Seh®®l. Tfa® sgalierat 
features of this effort are us® of real tlsnie digital coiifiuitor pro» 
granming, digital determination of instantaneo®® state variables;, and;, 
using the foregoing features to dens^nstrate optima control of a 
second order system. It was found that the techniques employed would 
control the second order system^ and that the derivative ®ff a variable 
could be determined with the digital equipment. 

The computer programs for accomplishing this effort are included 
in Chapter IV and the appendicies. 
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CHAPTER I 



INTRODUCTION 



Ttie purpose of this work was to a hyteid cMtr®I system 

at the U. S. Naval Postgraduate School. 

The control problem was approached assuming that a prospective 
control policy would require instantaneous knowledge of state variables 
which could not be obtained from the analog sub° system. States needed 
to implement the control policy would therefore be calculated by the 
digital computer. 

In order to achieve control and obtain the states (i.e.s, deriva° 
tlves) it was necessary to be able to determine td.th considerable 
accuracy the times required to sample and to confute. AlsOp appropriate 
constant time floating point arithmetic and converting procedures had 
to be developed. 

In addition, it was desired to determine what effects on state 
determination and control any noise present in the system might have. 
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CHAPTER II 



EQUIPMEIJT 

The system under consideration Is shown in Fig.. The digital 
computer was a Control Data Corporation 160. The memory capacity is 
4096 twelve bit binary word with a storage cycle time of 6,4 
microseconds. Operation Is controlled by a program Internally stored 
in sequential locations. More complete information including a 
listing of computer instructions is contained in Ref. 1. 

The plant was simulated on a PACE TR 10 Electronic Associates 
Incorporated analog computer. It is a twenty amplifier computer with 
a saturation level of + 10 volts. The power supply is regulated to 
+ 10 millivolts. Further information may be found in Ref. 2. 

The A/D and D/A convertcr.s were designed and constructed at 
the U. S. Naval Postgraduate School using Digital Equipment Corpora* 
tion modules. The principle of operation Is successive approximation 
conversion. The analog capacity was 0 to -10 volts with a sensitivity 
of 2.4 millivolts per bit. The digital ranges 0000 to Zlll and 4000 
to 7777 correspond to analog ranges of -5 to 0 and -10 to -5 volts 
respectively. 
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f/yBPI-D CO//TROL SYSTEM 



CHAPTER III 



DIGITAL TIME SCALING 



Of the factors to be considered in the iapilsmeffitatioia ©f a hybrid 
control system one of the more important is the tinne scaling of the 
digital computer. Normally^ time is not one of the criterion of digital 
computer progranming, but when the computer is used as part of a control 
system, it must be time scaled to be conqiatable with the remainder of 
the system. Often this time scaling is referred to as computing in 
"real" time; that is, the time scale of the analog system. The follow^ 
ing discussion presents some of the aspects of digital time scaling. 

All digital programs must be written so that the time required 
for the program is independent of the magnitude of any input or computed 
variables. In many cases this Involves padding the shorter paths to 
equalize all path times to that of the longest path in a particular 
operation. As a note of caution, care should be eKercised to avoid a 
prohibitive delay which would negate the value of the program. 

Any library routine used in a compensation program imst meet this 
constant time requirement. In most cases this was not one of the original 
requirements, meaning the routine must be rewritten. This has been done 
for the floating point add, subtract, multiply and divide and the £i%ed- 
to-floatlng point and floating- to~ fixed point conversion routines. 

These are presented in App. I as the Constant Time Floating Point 
Arithmetic Package. 
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In writing constant time programs for the CDC 160 the cycle time 
was used as a basis. Each of the CDC 160 Instructions requires one 
to three cycle times for execution. By writing programs so that all 
possible paths contain the same ntuimber of cycles the constant time 
requirement was satisfied. Knowing the cycle tlmeg the program time 
was calculated. 

Although Ref* 1 states the cycle tiine for the CDC 160 is 6.4 
microseconds, it was found that the actual time may vary slightly 
from that value. In the case of programs which contain several 
hundred cycles the difference n^y become significant. By timing the 
below program, which contains 20 x 10^ cycles, with a stopwatch the 
cycle time may be determined. 



1000 


2600 


Icc 00 


101® 


2200 


Idc ©0 


1001 


2341 


2341 


1011 


4512 


4512 


1002 


4213 


stf 13 


1012 


©7®1 


©bn 01 


1003 


2600 


Icc 00 


1013 


6501 


nzb 01 


1004 


7640 


7640 


1014 


??O0 


hit 


1005 


4211 


stf 11 


1015 


0000 




1006 


5610 


aof 10 


1016 


0000 




1007 


6501 


nzb 01 









As another consequence of the constant time requirement, any 
satellite equipment used with the computer mast be tested for operation 
time. TO illustrate, consider the analog to digital converter. There 
is a time delay between the time an input is called an£ the time the 
input is inserted into the computer. During this delay the computer 
cannot be used for other purposes. This time delay mast be found so 
that it can be taken into consideration in computing total program 
time. To determine the delay, run a program of the input routine re° 
peated several times and with a stopwatch time the program. Knowing 
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the total number of analog to digital conversion# ani the time for 
these conversions, the time per conversion can be calculated <> A 
similar procedure can be used to detemd.ne the digital to analog con 



version time 
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CHAPTER IV 



HYBRID CONTROL POLICY 



1 , Theory 

The process description is 

5 - F 0(K) + D U(K) IV=1 

where F ®nd D * , 

and in sampled form is 



© (K + 1) » e^^ 0(K) + ^ IV- 2 

a » eFT = I + ft + ipl! + 

i - I + FT + (F) (F) + =■=» 

gives « - [JJ] IV-3 

and A “ ^T jj 

-h U0tQ 



Substituting into the process equations, w@ obtain 
9(K + 1) = « X (K) + U 

It is now desired to get the reference 
0 (1) “ « 0 (0) + £ ( 0 ) 

0 (2) = « 0 (1) + I (1) = 

0 = d (« X (0) + U (0)) + 

» -[i fj X (0) 

Letting Djj " -Sj^ 0 (n) =a 2 © 

expanding IV-7 

9 (0) + 2T 0 (0) =■ 

0 (0) « T 

Simultaneous solution of these equations gives 



3 2 

"<5> X 



IV-5 



+ 1 U(l) IV=6 



IV- 7 



IV- 6a 



+ T D(l) (x ’^/2) 



IV- 6b 
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IV- 8 



or generally, U(K) » - 

the desired control policy. This policy will force the second order 
system to its reference position in two samp>llng periods (2T). (The 
sampling period (T) should not be confused with that alluded to in 
the state generator discussion in App. II) 

2. Memory Required 

All lower memory, except 70-77. 

Upper memory - 1640 cells. 

3. Subroutines Required 

Floating Point Arithmetic Package. 

State Generator Program with the "Divide^by-Pour" subroutine which 
it requires. 

4. Special Features 

The sampling period (T) is adjusted by annually entering the 
desired counting value in cell 2430 (as the program is herein listed). 
1712 for T^l second, and 730 for T=% second. 

When the sampling period T is changed, the equivalent floating 
point number must be entered into cells SO and 51, and its square into 
cells 52 and 53. These entries give the proper gain value for the 
chosen sampling period. 

5. CPC 160 Computer Control Program 

The program to Implement the control policy follows. 
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Sonmary of Cell Allocations 



(Including detail of lower memory) 



0100 » 1703 
1704 " 1730 
1731 - 1760 
1761 - 2303 
2304 - 2414 



floating point arltlnioietic package 
Divide- by- 4 
2T/3 computation 
State generator 

Control Policy including output 



Lower Memory 

01-04 floating point arguments 

06 program loop-closing jump (to 1761) 

07 subroutine return Jumps 

10-1 UU & L floating point forcing fct 

12-3 TE20 & L 3§/2T 

14-5 TEIU & L @/t2 

16-7 2TD3U & L 3/2T 

20 U forcing function 

21-2-3 OA, 0B„ ec 

24-5 9B-OA» 9C-0Bi, reap, 

26 (9C-9B) - (9B-9A) 

30-1 (OB-OA) U & L 

32-3 9BDU & L 

34-5 (0C-0B) U & L 

36-7 9CDU & L 

40-1 (9C-9B) - (9B-0A) U & L 

42-3 9CDDU & L 

44-5 A TO & L 

46-7 AT2U & L 

50-1 TO & L 

52-3 T20 & L 

54-5 20 & L 

56-7 30 & L 

61 Divided by 4 (1704) 

62 FSB 0317 

63 PAD 0335 

64 FMO 1315 

65 FDV 1533 

66 FIX-FLO 0100 

67 FLO-FIX 0162 

Onused 

00,05,27 & 60 
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FORM 2T/3 



1731 


2054 


Idd 


54 


1732 


4001 


std 


01 


1733 


2055 


Idd 


55 


113 ^ 


4002 


std 


02 


1735 


2050 


Idd 


50 


1736 


4003 


std 


03 


1737 


2051 


Idd 


51 


17^0 


4004 


std 


04 


17^1 


0101 


pta 




17^2 


o6o4 


adn 


04 


17^3 


4007 


std 


07 


171+4 


7064 


jpi 


64 


1745 


2056 


Idd 


56 


1746 


4003 


std 


03 


1747 


2057 


Idd 


57 


1750 


4oo4 ■ 


std 


04 


1751 


0101 


pta 




1752 


o6o4 


adn 


04 


1753 


4007 


std 


07 


1754 


7065 


Jpi 


65 


1755 


2001 


Idd 


01 


1756 


40l6 


std 


16 


1757 


2002 


Idd 


02 


1760 


4017 


std 


17 



Continue into the main loop of the State Generator. 
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2304 

2305 

2306 

2307 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2320 

23 a 

2322 

2323 

2324 

2325 

2326 

2327 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2340 

2341 

2542 

2343 

2344 

2345 

2346 

2347 



CONTROL POLICY 



0101 


pta 




0605 


adn 


05 


4007 


std 


07 


2023 


Idd 


23 


7066 


Jpi 


66 


2052 


Idd 


52 


4003 


std 


03 


2053 


Idd' 


53 


4oo4 


std 


04 


0101 


pta 




o6o4 


adn' 


04 


4007 


std 


07 


7065 


Jpi 


65 


2001 


Idd 


01 


40l4 


std 


l4 


2002 


Idd 


02 


4015 


std 


15 


2036 


Idd 


36 


4001 


std 


01 


2037 


Idd 


37 


4002 


std 


02 


2016 


Idd 


16 


4003 


std 


03 


2017 


Idd 


17 


4004 


std 


04 


0101 


pta 




o6o4 


adn 


04 


4007 


std 


07 


7065 


Jpi 


65 


2001 


Idd' 


01 


4012 


std 


12 


2002 


Idd 


02 


4013 


std 


13 


2014 


Idd 


l4 


4003 


std 


03 


2015 


Idd 


15 



0C to floating point 



9(K)/T^ 



0 DOT/(2T/3) 
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2550 UooU Std o4 

2551 0101 pta 

2552 060U adn 04 

2553 ^007 std 0? 

255^ 7065 Jpi 63 * 

2355 2001 ■ Idd 01 

2356 1+010 std 10 

2557 2002 Idd 02 , 

2560 4011 std 11 

2361 0101 pta 

2362 o6o4 adn 04 
2563 4007 std 07 

2364 7067 Jpl 67 

2365 1600 see 
2566 7777 7777 
2367 4020 std 20 

2370 7500 exf 00 

2371 2401 2401 
2572 7304 out 04 

2373 0021 0021 

2374 6103 nzf 03 

2375 6002 zjf 02 

2376 0020 0020 

2377 2200 Ide 00 



add to form -U 



-U to fixed point 
eomplement gives +U 

output U 



2400 1712 1712 
^ 2401 4211 stf 11 

2402 2200 Idf 00 

2403 0117 0117 

2404 0701 sbn 01 
.2405 6501 nzb 01 

2406 2204 Idf 04 

2407 0701 sbn 01 

2410 6507 nzb 07 

2411 6202 pof 02 

2412 0000 0000 

2415 7006 jpi 06 jump to elose main loop, (0006)=176l 

24l4 7717 hit 17 . 
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CHAPTER V 



PROCEDURE 



The programs for generating the state variable (App. II) and 
control function (Chap. IV) were tested using the circuits shown In 
Figs. 2 and 1» respectively. 

The TR-10 biasing levels. Fig. 2, for closed loop control were 
very sensitive. A small error yielded completely erroneous results. 
This was not a problem In the state variable test. The limiter was 
provided to protect the A/D converter from inputs beyond Its range 
(0 to >10 volts). The linearity of the A/D and D/A was determined 
to be satisfactory before operating the system. Initial conditions 
were chosen to avoid saturating the voltage limits (e.g. U(0) = ©q/T^); 
also, saturation of the float- to>flxed point program will occur when- 
ever the floating point number exceeds the largest possible positive 
and negative fixed point numbers, 3777 and 4000, 
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FIGURE 2 






CHAPTER VI 



RESULTS AND DISCUSSION 



The program for generating the first derivative is shown in 
App. II. Using this program and the system of Fig. 2, the average 
peak-to-peak noise level is about 2.0 volts. Except for the noise 
effects, the derivatives obtained were reliable. Any error in 
amplitude and/or phase being within the noise envelope as shown in 
Fig. 3, 

The program for inq> lament ing the control policy is shown in 
Chap. IV. The results of testing this program with an imbedded 
step are shown in Fig. 4. If noise is relatively low at the instants 
of sampling, the control is nearly ideal, as in Fig. 4a. However, 
when noise is appreciable the result obtained is like that shown in 
Figs. 4b and 4c. Fig. 4b shows the effect of noise making the 9 term 
of the control policy too large, while Fig. 4c shows the effect when 
9 is made too small. 
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FIGURE 3 
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DERIVATIVE RESULTS (con't)'- 
FIGURE 3 
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CHAPTER VII 



CONCLUSION AND RECOMMENDATIONS 

The conttol policy has been deioonserated to be effective when 
noise is not a significant factotc This is seldom the situation. The 
policy as implemented here is very sensitive to noise of the level of 
several millivolts. 

It was further demonstrated that a good first derivative could 
be digitally determined, but is very sensitive to input noise. 

It was not possible to determine the major source (s) of noise, 
but the test signal generator was highly suspect. The generator 
probably has a high frequency ripple of several millivolts in its 
output, thus giving the noisy results previously discussed. 

Improvement of the results obtained here can be obtained either 
by eliminating noise or turning to more sophisticated programming, 
such as predictor-corrector schemes. Noise elimination is all but 
impractical except in the laboratory. More sophisticated programs 
will result in much higher "costs" than the programs presented here. 
These costs will be mainly in computor usage- time and memory space 
required. Also, while the program utilized here x^as almost instan- 
taneous, some of the more sophisticated ones may involve significant 
time (phase) delays for which adjustment will be necessary. 
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Further Investigations along the approach used here should 
initially determine the noise characteristics of all equipments 
considered for use in order that excessively noisy signals are not 
introduced. 
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APPENDIX I 



CDC 160 (X)KSTANT TIME FLOATING POINT 
ARITHMETIC PACKAGE 



The Coastant Time Floating Point Package contains routines for 
fixed point to floating point and floating point to fixed point con= 
versions and floating point addj, subtract^ mssltlply and divide. 

These mubroutines have been programmed so that the same amount of time 
is required for each operation regardless of the magnitude of the in° 
put quantity. The following paragraphs contain some general lnforma‘° 
tion and notes on the package and Its use. 

1. Floating Point Number Format 

The floating point number consists of eight octal digits and re- 
quires two storage cells. One cell (lower) contains the significant 
figures of the number. To form a positive floating point number the 
fixed point octal number is written in binary form and the binary 
point shifted to the left of the first significant (one) bit. The 
octal number of shifts required added to 2000g becomes the upper 
portion of the floating point number. The lower portion is the signifi- 
cant bits in octal form, with the binary point understood to be at Che 
left. To form a negative floating point number the same procedure is 
followed except the upper and lower portions of the number are "sevens 
complemented". 

Example: 

3721. Q = Oil 111 010 001.2 

= .111 110 100 OIO 2 X 2^^8 

= .76A2g X 2^^8 

A-1 



3721 



2013 



'ihc positive floAting ijolnt nwiiber i® |g 42 the negative 



is 



5 ? 6 ^ 

0135' 



iif leant FiR>iflge® 



Ihi$ package recognizes the following configurations as zeroi 



Upper 0000 0000 XXXX 

Lower 0000 XXXX 0000 



In the interest of conserving time the last significant figure has 
not been romded off in any of the routines in this package. In the 
floatings to- fixed point conversionSj, if the magnitude of the number 
exceeds capacity of the computer in fixed point;, the output will be 
3117q if the nunsber is positive or 4000g if the number is negative. 

3. Cells Required 

The package requires the following cells? 

01 X upper stowage 

02 X lower stowage 

03 Y upper stowage 

04 Y lower stowage 

07 XXXX return jump address 
0100 to 1703 floating point package 

4. Jump Eoutlne® 

The following routines are recommended for Jumping into the 
floating point package. 

Fixed point to floating point conversions 



0101 pta 
0605 adn 05 
4007 std 0? 
20XX Idd KSL 
70YY jpi YY 



XX is the number of the cell in which the 
fixed point number is stored. 

YY is the number of the cell in which the 
address of the fixed-t®^ floating point 
routine is stored. 



All oihci‘ operations: 



OlOl pta XX is the nunber of the cell in which the 

0604 adn 04 J^rap address of the operation is stored, 

4007 std 07 
70XX Jpi XX 

In each case control is ret"jirned to the main program at the address 
following the jpi instryjction. 



5 , S’jairoary 



OPERATION 


JUMP 


DESCRIPTION ANSWER TIME 


(CODE) 


ADDEJSSS 




IN 


CYCLES 


Fixed to 


0100 


(A) 


01 


167 


floating point 
conversion. 






02 




(FX=EL) 










Floating to 
fixed point 
conversion. 


0162 


X 


A 


216 


(FL“PX) 










Floating point 


0317 


X - Y 


01 


319 


stiktraction. 






02 




(FSB) 










Floating point 


0323 


X + Y 


01 


303 


addition. 






02 




(FAD) 










Floating point 


1315 


X X Y 


01 


674 


multiplication 






02 




(FW) 










Floating point 


1533 


X / Y 


01 


380 


division. 






02 





? 



CONSTANT TIME 



FLOATING POINT ARITHlffiTIC PACKAGE 



0100 


4002 


std 


02 


FX-FL. Store fixed point nmber in cell 02. 


0101 


0515 


Icn 


13 


Set count 1 with 13 • 


0102 


4255 


stf 


55 


0103 


0400 


Idn 


00 


Zeroize count 2 and cell 01. 


0104 


4254 


stf 


54 




0105 


4001 


std 


01 




oio 6 


2002 


Idd 


02 


Store fixed point number for later si>pi check 


0107 


4247 


stf 


47 


0110 


6204 


PJf 


04 




0111 


2402 


led 


02 


Number is negative, comple-’ent and restore. 


0112 


4002 


std 


02 




0115 


6204 


Pjf 


04 




Oli4 


o 4 oi 


Idn 


01 


Add one to count 2 to rrur.llzc positive arn 


0115 


4245 


stf 


45 ■ 


negative paths. 


on 6 


2002 


Idd 


02 




0117 


6055 


zjf 


55 , 


If number is zero jwap fo-r'^rd. 


0120 


5401 


aod 


01 


Shift cell 02 until first bit is a one bit. . 


0121 


5656 


aof 


56 


For each shift add one to cell 01 and 


0122 


4402 


srd 


02 


co'unt 1. Cell- 02 now contains the lower 


0125 


6603 


P0l3 


05 


part of the floating point number. 


0124 


2200 


Idc 


00 


Subtract cell 01 from 20l4 to form the upper 


0125 


2014 


2014 


port of thf • ■" oatihg point number and 


0126 


5401 


sbd 


01 


restore . 


0127 


4001 


std 


01 




0150 


2226 


Idf 


26 


Check sign of original number. 


0151 


6205 


Pjf 


05 




0152 


2401 


led 


01 


Nurber is negative, complemont upper and 


0135 


4001 


std 


01 


lower parts and restore. 


0154 


2402 


led 


02 


0155 


4002 


std 


02 




0136 


2222 


Idf 


22 


Form count. Count - jor of delay loops 


0157 


3620 


sbf 


20 


= 2 - Couct 1 , 

1 


Ol4o 


4221 


stf 


21 


1 


0 l 4 i 


6010 




10 


No delay loops are necessary. 


0142 


2a7 


Idf 


17 


Delay loops to equalize time. 


0145 


0701 


sbn 


01 


0144 


4215 


stf 


15 


' 


0145 


0500 


nop 






0146 


0500 


nop 






0147 


0500 


nop 







A -4 



0150 


6506 


nzb 


06 ‘ 




0151 


7007 


jpl 


07 


Return jump to main prosraun. 


0152 


04 i 5 


Idn 


15 


Form eount for fixed point number 


0155 


0500 


nop 




equal to zero. 


015 ^+ 


0500 


nop 




, 


0155 


6615 


Pjb 


15 


' 


0156 


0000 






Sign eheek stowage. , • 


0157 


0000 




• 


Count 1 stowage. Coimt 1 = 13 - No. of shifts 

) 


0160 


0000 






• 

Count 2 stovmge. 


0161 


0000 




$ 


Count stowage . 


0162 


2001' 


Idd 


01 


FL-FX. Load upper part of floating point 


0165 


4260 


stf 


60 


number and store as sign eheek. * 


Ol 64 


6505 


njf 


05 


0165 


o4o4 


Idn 


04 


Number is positive'. Time delay to equalize 


0166 


0701 


sbn 


01 


positive and negative paths. 


0167 


6501 


nzb 


01 


, 


0170 


6005 




05 




0171 


2401 


led 


01 ■ 


Number is negative. Complement upper and 


0172 


4001 


std 


01 


lower parts and restore. 


0175 


2402 


led 


02 




0174 


4002 


std 


02 


• 


0175 


2002 


Idd 


02 


• , 


0176 


6051 


zjf 


51 


If nmber is zero jimap to 0247 . 


0177 


2001 


Idd 


01 




0200 


5600 


sbe 


00 


Subtraet 2000 to find exponent.' If positive 


0201 


2000 


2000 


store on shift. I 


0202 


6o46 


zjf 46 


. Exponent is zero. Jump to 0250 . . 


0205 


6546 


njf 46 


Exponent is negative. Jump to 0251 . 


0204 


424 o 


stf 4o 




. 0205 


0714 


sbn l 4 


Subtract l 4 from shift and stow result 


0206 


4237 


stf 37 


in coxmt. Count = No. delay loops. 


, 0207 


6202 


pjf 02 


If count is positive, number will exceed 


0210 


6302 


njf 02 


capacity. Jump to 0252 . 


0211 


6 l 4 i 


nzf 4 l 




0212 


o4oo 


Idn 00 ■ 




0215 


4233 


stf 35 


Zeroize mask and form comp).ement of shift. 


0214 


2630 


lef 50 


, 


0215 


4227 


stf 


27 


Shift cell 02 shift nvimber of times . At 


0216 


44 o 2 


srd 


02 


0217 


4627 


srf 


27 


same time form mask. 


0220 


5626 


aof 26 




0221 


5623 


aof 25 , 




0222 


6504 


nzb 04 




0223 


2222 


Idf 


22 


Delay loops to oquoliao tima. 


0224 


6006 


zjf .06 


f 


0225 


0404 


Idn 04 




0226 


0701 


sbn 


01 




0227 


6501 


nzb 


01 





A-5 



Mask ce3J. 02 and restore . ,’Cq 11 02 contains' 
the fixed point nuiober. 

Check sign of original number. If negative 
complement and load in‘A register. If 
positive load in A register. Re- 
turn jump to main prograim. 



Check stowage. 

Shift stowage. 

Count stowage. 

Mask stowage. 

JUmp to0253* 

Jump to 0262. 

Jump tp 0275. 

Jump to 0304. 

Floating point number is zero. Load zero 
in A register, delay and return jump j 
to main program.' 



0230 


5615 


aof 


15 


0251 


6504 


nzb 


04 . 


0252 


2002 


Idd 


02 


0235 


1215 


Ipf 


13 


0234 


4002 


std 


02 • 


0255 


2206’ 


•Idf 


06 


0236 


6503 


njf 


03 


0257 


2002 


Idd 


02 


0240 


7007 


jpi 


07 


0241 


2402 


led 


02 


0242 


7007 


jpi 


07 


0245 


0000 






0244 


0000 






0245 


0000 






0246 


0000 






0247 


6004 




04 


0250 


6012 


zjf 


12 


0251 


6542 


njf 


24 


0252 


6132 


nzf 


52 


0255 


2200 


Idc 


00 


0254 


0137 


0157 


0255 


0701 


sbn 01 


0256 


6501 


nzb 


01 


0257 


0500 


nop 




0260 


o4oo 


Idn 


00 


V 0261 


7007 


jpi 07 


0262 


2200 


Idc 


00 


0265 


0155 


0153 


0264 


0701 


sbn 


01 


. 0265 


6501 


nzb 


01 • 


0266 


0500 


nop 




0267 


2524 


Idb 


24 


0270 


6305 


njf 05 


0271 


0401 


Idn 


01 


0272 


7007 


jpi 07 


0273 


0501 


Icn 


01 


0274 


7007 


jpi 07. 


0275 


2200 


Idc 


00 


0276 


0154 


0154 


0277 


0701 


sbn ,01 


0500 


6501 


nzb 


01 


0501 


0300 


nop 




0502 


o4oo 


Idn 


00 


0503 


7007 


jpi 07 


0304 


2200 


Idc 


00 


0505 


0126 


0126 


0306 


0701 


sbn 


01 


0507 


6501 


nzb 


01 



Floating point number 
less than 1. Load 
delay, and return 



Floating point number 
but less than 0.5 



is larger than O.5 and 
0001 in A register, 
jump to main program. 



is greater than zero 
Load zero in A re- 



gister, delay and retvirn jump to main , 
program. 



Floating point number exceeds capacity of 
computer. If number is positive load 
5777 in A register, if negative load 
UOOO, delay, and return jump to main 



A-6 




1 



i 



0310 


2345 


Idb 45 


prograjn. 


0311 


6504 


njf 04 




0312 


2200 


lldc 00 


, 


' 0315 


3777 


3777 




0314 


7007 


Jpi 07 


{ 


0315 


2702 


Icb 02 


j 


0316 


7007 


Jpi 07 


■. 


0317 


2005 


Idd 03 


FSB- Zero check Y upper lower. If 


0320 


6 l 04 


nzf 04 


either are zero jump to -FAD. If both 


03a 


4003 


std 03 


are non-zero^ complement^ restore and 


0322 


0500 


nop 


jump to FAD. 


0323 


6003 


zjf 03 


' 


0324 


2403 


led 03 




0325 


4003 


std 03 




0326 


2004 


Idd 04 • 




0327 


6 l 04 


nzf 04 




0350 


4oo4 


std’.o 4 


• 


0351 


0300 


nop 




0332 


6003 


zJf 03 




0553 


24 o 4 


led 04 




0334 


4 oo 4 


std 04 




0335 


2001 


Idd 01 


FAD. Sign and zero eheek X. 


0336 


6017 


zjf 17 




0337 


6353 


nJf 53 




0340 


2002 


Idd 02 




0341 


6016 


zjf 16 




0342 


2003 


Idd 03 


X is positive and non- zero. Sign and 


0343 


6 o 42 


zjf 42 


zero eheek Y. 


0344 


6305 


njf 05 




■ 0345 


2004 


Idd 04 




0346 


604 l 


zjf 4 l 




0347 


7101 


Jfi 01 


X and Y are positive and non-zero. Jump 


0350 


1077 


1077 


to. 1077 - 


0351 


2004 


Idd 04 




0352 


6035 


zjf 35 




0353 


7101 


Jfi 01 


X is positive and Y is negative. Both 


0354 


0653 


0653 


' are non-zero. Jun-.p to 0653* 


0355 


2001 


Idd 01 


Time delay. NOTE: X is zero for 0355 


0356 


2001 


Idd 01 


to 04o4. 


0357 


2003 


Idd 03 


Zero eheek Y upper. 


0360 


6105 


nzf 05 




0361 


0402 


Idn 02 


Time delay. 


0362 


0701 


sbn 01 




0363 


6501 


nzb 01 




0364 


6010 


zjf 10 




0365 


4001 


std ' 01 


Y upper non-zero. Store in eell 01 . 


0366 


2004 


Idd 04 


Zero cheek Y lover. 


0367 


6006 


zjf 06 





A-7 



I 



I 



0370 


4002 


std 02 


Y lower is non-zero. Store in cell 02. 


0371 


2.200 


Idc 00 


. Answer is now in cells 01 and 02. Delay 


0372 


oa3 


0213 


and return jump to main pi'ogram. 


0373 


0300 


nop 




037^+ 


6106 


nzf 06 


. r 


0375 


nhoo 


^ Idii 00 


Answer is zero . Load zero in 'pells 01 and 


0376 


4001 


■ Strl 01 


02, delay and return jumpHo main 


0377 


4002 


std 02 


, program. ^ 

$ 1 4 


o4oo 


2200 


Idc 00 




0401 


oaa 


oa2 




0402 


0701 


sbn 01 




0403 


6501 


nzb 01 




o4o4 


7007 


m 07 




0405 


,2003 


Idd 03 


Y is zero. Delay and, return jump to main > 


o4o6 


2003 


Idd 03 , 


. program. ' | 


0407 


2200 


Idc 00 




04l0 


0216 


0210 




o4n 


6507 


nzb 07 




04i2 


2002 


Idd 02 


Zero check X lower. NOTE: X is negative 


04i5 


6434 


zjb 34 


for 04 i 2 to 0424 


04i4 


2003 


Idd 03 


Zero and sign check Y upper. 


04i5 


6410 


zjb 10 


• 


04i6 


6205 


Pjf 05 




04i7 


2004 


Idd 04 


Y is negative. Zero check Y, lower. 


0420 


6411 


11 


’ 


0421 


7101 


01 


X and Y are negative. Jump to 1105. 


0422 


1105 


1105 




0423 


2004 


Idd 04 


Y is positive. Zero check Y lower. 


o424 


6415 


zjb 15 




0425 


2401 


led 01 


Subtract upper parts and store result 


o426 


3403 


sbd 03 


in count 1. NOTE; 0425, to 0652 is 


0427 


4275 


stf 75 


X negative and Y positive routine. 


0450 


6077 


zjf 77 


Exponents equal. Jump to 0527 • 


0431 


6277 


Pjf 77 


X exponent larger. Jump to 0530. 


0452 


06l4 


adn l4 


Add l4 to count 1 to form shift. 


0433 


6056 


zjf 56 


Y is much larger than X. Jump to 05II. 


04j4 


6356 


njf 56 




0435 


1600 


see 00 


Complement and restore shift. 


0456 


7777 


7777 




0457 


4266 


stf 66 




0440 


o4oo 


Idn 00 


Zeroize mask . 


044i 


4265 


stf 65 




0442 


4402 


srd 02 


Shift X lower to equalize exponents. 


0443 


4663 


srf 63 


Form mask. No. of shifts = shift. 


0444 


5662 


aof 62 




0443 


5660 


aof 60 




0446 


6504 


nzb 04 




0447 


2402 


led 02 


Mask and restore X lower. 



A-8 



0450 


1256 


Ipf 56 


1 




0451 


4002 


std 02 


/ 




0452 


0515 


Icn . 15 


Load -I5 in count 2 . , 




0455 


4255 


stf 55 






0454 


2004 


Idd 04 


Subtract X and Y lower and store 


result 


0455 


5402 


sbd 02 


on cell 02 . 




0456 


4002 


std 02 






0457 


6206 


Pof 06 






o 46 o 


2005 


Idd. 05 


First bit is a one bit. No shift 


is 


046 l 


4001 


std 01- 


necessary. Store exponent in 


cell 


0462 


04 oi 


Idn 01 


01 . Time delay. 




0463 


0701 


sbn'' 01 






0464 


6010 


zjf 10 






0465 


5641 


aof 4 l 


Shift cell 02 until first bit is 


a one 


0466 


4402 , 


srd 02 


bit. Modify count 2 for each 


shift . 


046 ? 


6602' 


pjb 02 






0470 


2656 


Icf 56 


Form exponent and store in cell 01 . 


0471 


0715 


sbn 13 






0472 


5003 


add 03 






0475 


4001 


std 01 






0474 


2230 


Idf 30 


Zero check count 1 . 




0475 


6006 


zjf 06 






0476 


o 4 o 4 


Idn 04 


Count 1 delay loops. 




0477 


0701 


sbn 01 






0500 


6501 


nzb 01 






0501 


5625 


aof 25 






0502 


6504 


nzb 04 


• 




0505 


2223 


Idf 25 


Zero check coiant 2 . 




0504 


6 oo 4 


zjf 04 






0505 


4220 


stf 20 


Count 2 dealy loops . 




0506 


5620 


aof 20 






0507 


6502 


nzb 02 






0510 


7007 


jpi 07 


Re trim jump to main pro^ara. 




0511 


0300 


nop 


Y is much greater than X. Load Y 


in 


0512 


2005 


Idd 05 . . 


cells 01 and 02, dealy and re 


- 


0513 


4001 


std 01 


turn jump to main program. 




0514 


2004 


Idd 04 






0515 


4002 


std 02 


. 




0516 


2200 


Idc 00 






0517 


0204 


0204 






0520 


0300 


nop 






0521 


0701 


sbn 01 






0522 


6501 


nzb 01 






0525 


7007 


jpi 07 






0524 


0000 




CQunt 1 stowage. 




0525 


0000 




Shift stowage. 




0526 


0000 




Mask and count 2 stowage. ' 




0527 


6055 


zjf 55 


Exponents equal. Jump to o 6 o 4 . 





A-9 



{ 

'm 






0530 


0714 


sbn l 4 


X exponent larger. Form shift-. 


0531 


4504 


stb 04 


X is inuoh larger than Y. Jump %o 0576 . 


0532 


6244 


pjf 44 


' 0553 


o 4 oo 


Idn 00 . 


Zeroize mask . 


053^ 


4506 


stb 06 


I 


0535 


4404 


srd 04 


Shift Y lower to equalize exponents. 


0536 


4710 


srb 10 


Form mask. No. of shifts 1= shift. 


0537 


5711 


aob 11 


■ 


05^ 


5713 


aob 13 




05 *+i 


6504 


nzb 04 


■ 


05U2 


2004 


Idd 04 


Mask and restore Y lower. 


051^3 


1315 


lpl 3 15 




0544 


4 oo 4 


std 04 




0545 


0513 


Icn 13 


Load -13 in oount 2 . 


0546 


4520 


stb 20 ■ 




0547 


2402 


led 02 • 


..Subtraet X and Y lower and store re- 


0550 


j 4 o 4 


sbd 04 


sult in eell 02 . 


0551 


4002 


std 02 




0552 


6205 


pjf 05 




0553 


0402 


Idn 02 


Time delay. 


055'+ 


0701 


sbn 01 




0555 


6501 


nzb 01 




0556 


6007 


zjf 07 




0557 


5731 


aob 31 


Shift eell 02 until first bit is a 


0560 


4402 


srd 02 


one bit. Modify oount 2 for eaoh 


0561 


6602 


pjb 02 


shift. 


0562 


2334 


Idb 34 


Form exponent and store in eell 01 . 


0563 


0615 


adn 13 




0564 


5001 


rad 01 




0565 


2402 


led 02 


Answer is negative. Complement and 


0566 


4002 


std 02 


restore eell 02 . 


0567 


2743 


leb 43 


Modify oount 1 to equalize delay. 


0570 


0601 


adn 01 




0571 


4345 


stb 45 


Modify program for proper jump. 


0572 


2200 


Ide 00 


0575 


6531 


6531 


Jump Taaok to eounts 1 and 2 dealy loops. 


0574 


4347 


stb 47 


0575 


6550 


nzb 50 




0576 


2200 


Ide 00 


X mueh larger than Y delay. 


0577 


0207 


. 0207 




0600 


0500 


nop 




0601 


0701 


sbn 01 




0602 


6501 


nzb 01 




0605 


7007 


jPi 07 




o 6 o 4 


0515 


Ion 15 


X and Y exponents equal. Form eount 3 * 


0605 


4245 


stf 45 




0606 


2402 


led 02 


Subtraet X and Y lower and store in 


0607 


54 o 4 


sbd 04 


eell 02 . 



A-10 



1 



I 



0610 


4002 


std 


02 


0611 


6105 


nzf 05 


0612 


4001 


std 01 


0613 


2200 


Idc 


00 


06l4 


0201 


0201 


0615 


6134 


nzf 


34 


0616 


6314 


njf 


l4 


0617 


5633 


aof 


35 


0620 


4402 


srd 


02 


0621 


6602 


Pjb 


02 


0622 


2402 


led 


02 


0625 


4002 


std 


02 


0624 


2226 


Idf 


26 


0625 


0615 


adn 


15 


0626 


5001 


rad 


01 


0627 


0500 


nop 




0630 


o4oo 


Idn 


00 


0631 


6013 


zjf 


13 


0632 


2402 


led 


'02 


0633 


4002 


std 


02 


0634 


5616 


aof 


16 


0635 


4402 


srd 


02 


0636 


6602 


Pjb 


02 


0637 


2613 


Icf 


13 


o64o 


0715 


sbn 


15 


064i 


3003 


add 


03 


0642 


4001 


std 


01 


0643 


0300 


nop 




0644 


5606 


aof 


06 


0645 


4205 


stf 


05 


o646 


6502 


nzb 


02 


0647 


2200 


Idc 


00 


0650 


0117 


0117 


0651 


6551 


nzb 


51 


0652 


0000 






0653 


2403 


led 03 


0654 


3401 


sbd 


01 


0655 


4267 


stf 67 


0656 


6071 


zjf 71 


0657 


6271 


pjf 71 


0660 


06l4 


adn l4 


0661 


6054 


zjf 54 


0662 


6354 


njf 54 


0663 


1600 


see 


00 


0664 


7777 


7777 


0665 


4260 


stf 60 


0666 


o4oo 


Idn 00 


0667 


4257 


stf 57 



X and Y are equal. Answer is zero. Jump 
, to delay routine. ■ 

I 



X is greater than Y. Left shift cell 02 

until first bit is a one bit. Modify 
count 5 foi^ each shift. 



Form exponent and store in cell 01 . 



Time delay. 



X is less than Y. Left shift cell 02 
until first bit is a one bit. 
Modify count 3 each shift. 



Form exponent and store in cell 01. 



Count 3 delay loops. 



Time delay. 



Count 3 stowage. 

Subtract upper parts and store result in 
count 1. NOTE; X is positive and Y is 
for 0653 to 1076. 

Exponents equal. Jump to 07*^7. ' 

Y larger than X. Jump to 0750.. 

Add l4 to covint 1 to form shift. 

X is much larger than Y. Jump 'to 0735* 

Complement and restore shift. 



Zeroize mask. 



A-11 



0670 


44o4 


srd 04 


Shift Y lower to equalize exponents. 


0671 


4655 


srf 55 


Form mask. No. shifts = Shii't. 


0672 


5654 


aof 54 




0673 


5652 


aof 52 


• 


0674 


6504 


nzb 04 




0675 


24 o 4 


led 04 


Mask and restore Y lower. 


0676 


1250 


Ipf 50 




0677 


4oo4 


std 04 


1 


0700 


0513 


Icn 13 


Load -13 in count 2 . 


0701 


4245 


stf 45 


. 


0702 


2002 


Idd 02 


Subtract lower parts and store in 


0703 


34 o 4 


sbd 04 . 


cell 02 . 


0704 


4002 


std 02 




0705 


6205 


Pjf 05 




0706 


0402 


Idn 02 


First bit is a one bit.' No shift is 


0707 


0701 


sbn 01 


needed. Time delay. ■ 


0710 


6501 


nzb 01 




0711 


6007 


zjf 07 




0712 


5634 


aof 34 


Left shift cell 02 until first bit is 


0713 


4402 


srd 02 


a one bit. Modify count 2 for each 


0714 


6602 


P 0 l> 02 


shift. 


0715 


2631 


Icf 31 


Form exponent and store in cell 01 . 


0716 


0713 


sbn 13 




0717 


5001 


rad 01 




0720 


2224 


Idf 24 


Zero check count 1 . 


0721 


6006 


zjf 06 




0722 


0404 


Idn 04 


Count 1 delay loops. 


0723 


0701 


sbn 01 




0724 


6501 


nzb 01 




0725 


5617 


aof 17 




0726 


6504 


nzb 04 


■ 


0727 


2217 


Idf 17 


Zero check count 2 . 


0730 


6oo4 


zjf 04 


, 


0731 


4214 


stf l 4 ■ 


Count 2 . delay loops . 


0732 


5614 


aof l 4 


• 


0733 


6502 


nzb 02 




0734 


7007 


OPi 07 


Return jump to main program. 


0735 


0300 


nop 


X is much larger than Y. Delay and 


0736 


2200 


Idc 00 


return jump to main program. 


0737 


0207 


0207 


t 


0740 


0300 


nop , 




0741 


0701 


sbn 01 




0742 


6501 


nzb 01 




0743 


7007 


Jpl 07 




0744 


0000 




Count 1 storage. 


0745 


0000 




Shift storage . 


0746 


0000 




Mask and count 2 storage . 


0747 


6062 


zjf 62 


Exponents equal . Jump to 1017 • 



A-12 



0750 


0714 


sbn l 4 




0751 


4304 


stb 04 




0752 


6245 


Pjf 45 


V inueh larger than X. Jiimp to 1017 . 


0753 


o 4 oo 


■ Icbi 00 


Zeroize mask. 


0754 


4306 


stb 06 




0755 


44 o 2 


srd 02 


Shift X lower to equalize exponents. 


0756 


4710 


srb 10 


Form mask. No. shifts = Shift. 


0757 


5711 


aob 11 




0760 


5713 


aob 13 




0761 


6504 


nzb 04 




0762 


2002 


Idd 02 


Mask and restore X lower. 


0763 


1315 


Ipb 15 




Ol6h 


4002 


std 02 




0765 


0515 


Icn 13 


Load -13 in eount 2 . 


0766 


4320 


stb 20 




0767 


24 o 4 


led 04 


Subtraet , lower parts and store result 


0770 


3402 


sbd 02 


in sell 02 . 


0771 


4002 


std 02 




0772 


6205 


pjf 05 


First bit is a one bit. No shift is 


0773 


2003 


Idd 03 


necessary. Store exponent in eell 


077^ 


4001 


std 01 


01 . 


0775 


2003 


Idd 03 


Time delay. 


0776 


6110 


nzf 10 




0777 


5731 


aob 31 


Left shift eell 02 until first bit is 


1000 


4402 


srd 02 


a one bit. Modify eount 2 for eaeh 


1001 


6602 


pjb 02 


shift. 


1002 


2334 


Idb 34 


Form exponent and store in eell 01 . 


1003 


0613 


adn 13 




1004 


3003 


add 03 




1005 


4001 


std 01 




1006 


2402 


led 02 


Complement and restore cell 02 . 


1007 


4002 


std 02 




1010 


2744 


leb 44 


Modify count 1 to equalize time delay. 


1011 


0601 


adn 01 


* 


1012 


4346 


stb 46 




1013 


0300 


nop 


Jump to count 1 a. .d 2 delay loops. 


1014 


6002 


zjf 02 




1015 


6575 


nzb 75 




1016 


6476 


zjb 76 




1017 


2003 


Idd 03 


Y is much larger than X.' Store Y in 


1020 


4001 


std 01 


cells 01 and 02 , delay and return 


1021 


2004 


Idd 04 


Jijmp to main program. 


1022 


4002 


std 02 




1023 


2200 


Ide 00 




1024 ' 


0201 


0201 




1025 


0300 


nop 


, 


1026 


0701 


sbn 01 




1027 


6501 


nzb 01 





A -15 



1030 


7007 


jpi 07 




1031 


0515 


Icn 15 


Load -15 in eount 3* ' 


1032 


4244 


stf 44 


1033 


24 o 4 


led 04 


Subtraet lover parts and store result 


1034 


3402 


sbd 


02 


In eell 02. 


1035 


4002 


std 02 


’ 


1036 


6105 


nzf 05 


f 


1037 


4001 


std 


01 


X and Y are equal. Answer is .^ero. Jump 


loUo 


2200 


Idc 


00 


to delay routine . 


lOUl 


0201 


0201 




1042 


6514 


nzb 


l4 




1043 


6213 


Pjf 


13 


X Is larger than Y. Shift eomple'nient 


1044 


2402 


led 


02 


02 until first bit is a one. bit. 


1045 


4002 


std 


02 


Modify eo\mt 3 f 0^ eaeh shift . 


1046 


5630 


aof 


30 




1047 


4402 


srd 


02 




1050 


6602 


pjTj 


02 




1051 


2625 


Icf 


25 


Form exponent and store in cell 01. 


1052 


0715 


sbn 


15 




1053 


5001 


rad 


01 




1054 


0300 


nop 






1055 


6212 


POf 


12 


' ■ 


1056 


5620 


aof 


20 


Y is larger than X. Shift --ll 02 


1057 


4402 


srd 


02 


until first bit is a ono bit. 


1060 


6602 


POb 


02 


Modify count 3 for each shift. 


1061 


2402 


led 


02 


Complement and restore cell 02. 


1062 


4002 


std 


02 




1063 


2213 


Idf 


13 


Form exponent and store in cell 01. 


1064 


0615 


adn 


15 


. 


1065 


3003 


add 


03 




1066 


4001 


std 


01 




1067 


2207 


Idf 


07 


Count 3 delay loops . 


1070 


0601 


adn 


01 


’ 


1071 


4205 


stf 


05 


. 


1072 


6503 


nzb 


03 




1073 


2200 


Ide 


00 


Time delay. 


1074 


0116 


0116 




1075 


6547 


nzb 


47 


# 


1076 


0000 






Count 3 stowage. 


1077 


04ll 


Idn 


11 


X and Y are positive. Delay and store 


1100 


0701 


sbn 


01 


sign check. 


1101 


6501 


nzb 


01 


* 


1102 


0400 


Idn 


00 


• ' 


1103 


4275 


stf 


75 




1104 


6013 




13 




1105 


2401 


led 


01 


X and Y are negative. Complement and 


1106 


4001 


std 


01 


restore. Store sign check. 


1107 


2402 


led 


02 





A-14 



1110 

1111 

1112 

1115 

1114 

1115 

lll6 

1117 

1120 

iia 

1122 

1125 

1124 

1125 

1126 

1127 

1150 

1151 

1152 

1153 

1154 

1135 

1156 

1157 

ll40 

ll4l 

1142 

1145 

ll44 

1145 

1146 

1147 

1150 

1151 

1152 

1155 

1154 

1155 

1156 

1157 

1160 

1161 

1162 

1165 

ll64 

1165 

1166 

1167 



J 



4002 


std 02 


1 


2405 


led 05 


1 

) 


4005 


std 05 


■ 


24o4 


led 04 


i ■ i ■ ' 


4oo4 


std 04 




o4oi 


Idn 01 




4262 


stf • 62 




2005 


Idd 05 


Subtract exponents and store result In 


5401 


sbd 01 


count. 


4260 


stf 60 


t 


6o64 


zjf 64 


Exponents are equal. to 1206. 


6264 


pjf 64 


Y is larger than X. Jimp to 1207. 


06i4 


adn l4 


Md l4 to eount to form shift. 


6057 


zjf 57 


X is mueh larger than Y. Jump to 1204. 


6557 


njf 57 




1600 


see 00 


Complement and restore shift. 


7777 


7777 




4251 


stf 51 




o4oo 


Idn 00 


Zeroize mask. 


4250 


stf 50 




44o4 


srd 04 


Shift Y lower to equalize exponents. 


4646 


srf 46 


Form mask. No. of shifts '= Shift. 


5645 


aof 45 




5645 


aof 45 




6504 


nzb 04 




2004 


Idd 04 


Mask Y lower and restore. 


1241 


Ipf 4l 




4oo4 


std 04 




2002 


Idd 02 


Mask first bit of X lower and add Y 


1200 


Ipe 00 


lower 


5777 


5777 




5004 


add 04 




6510 


njf 10 


No overflow. Replace first one bit. 


1600 


see 00 




40000 


4000 




4002 


std 02 




o405 


Idn 05 


Time delay. 


0701 


sbn 01 




6501 


nzb 01 




6011 


zjf 11 


1 


0111 


Is 6 


There is overflow. Right shift one 


0110 


Is 3 


place and replace first one bit. 


0105 


Is 2 


Store in cell 02. 


1515 


Ipb 15 




5200 


ade 00 




2000 


2000 




4002 


std 02 


’ 


5401 


aod 01 


Modify exponent. 



A-15 



1170 

1171 

1172 

1175 

H7i^ 

1175 

1176 

1177 

1200 

1201 

1202 

1205 

1204 

1205 

1206 

1207 

1210 

1211 

1212 

1215 

12l4 

1215 

I2l6 

1217 

1220 

12a 

1222 

1225 

1224 

1225 

1226 

1227 

1250 

1251 

1252 

1255 

1254 

1255 

1256 

1257 

1240 

124i 

1242 

1245 

1244 

1245 

1246 

1247 



2211 


Idf 


11 


Zero eheek eount. 


6006 




06 




04o4 


Idn 


04 


Count delay loops. 


0701 


sbn 


01 


t 


6501 


nzb 


01 




5604 


aof 


04 




6504 


nzb 


04 


- , 


6o44 


zjf 


44 


Jump to delay routine . 


0000 






Cheek stowage. 


0000 






Count stowage . 


0000 






Shift stowage . 


0000 






Mask stowage. 


0501 


Icn 


01 


X is mueh larger than Y. Jump to 1262. 


6555 


njf 


55 


* 


6066 


zjf 


66 


Exponents equal . Jun^ to 12?4 . 


0714 


sbn 


l4 


Y is larger than X. Fora shift. 


4506 


stb 


06 




6254 


Pjf 


54 


Y is mueh larger than X . Jump to 1265 


o4oo 


Idn 


00 


Zeroize mask. 


4510 


stb 


10 


/ 


44o2 


srd 


02 


Shift X lower to equalize exponents . 


4712 


srb 


12 


Fora mask. No. of shifts '= Shift. 


5715 


aob 


15 




5715 


aob 


15 




6504 


nzb 


04 




2002 


Idd 


02 


Mask end restore X lower. 


1517 


Ipb 


17 




4002 


std 


02 




2005 


Idd 


05 


Store exponent :‘.n esll 01. 


4001 


std 


01 




2525 


Idb 


25 


Modify count to equalize delay. 


0701 


sbn 


01 




6105- 


nzf 


05 


Zero check count. 


0500 


nop 




Time dela;^''. 


6005 


zjf 


05 




1600 


see 


00 ■ 


Complement and restore count. 


7777 


7777 




4554 


stb 


54 




0500 


nop 




Mask first bit of Y lovrer and add 


2004 


Idd 


04 


X lower. 


1241 


Ipf 


4l 




5002 


add 


02 


Jump back to over flow check routine. 


6572 


nzb 


72 




0425 


Idn 


25 


Time delay. , 


0500 


nop 






0701 


sbn 


01 




6501 


nzb 


01 




2547 


Idb 


47 


Check sign of answer. 



A-15 




I 



I 



1250 


6105 


nzf 05 




1251 


04 o 4 


Idn 04 


Answer is positive. Tine delay and 


1252 


0701 


sbn. 01 


return Jump to ma,in program. • ' 


1255 


6501 


nzb 01 


. 


1251+ 


6005 


zjf 05 




1255 


24 oi 


led 01 


Answer is negative. Complement and 


1256 


4001 


std 01 


restore eells 02 and oi. Return 


1257 


2402 


led 02 


Jump to raain program. 


1260 


4002 


std 02 




1261 


7007 


OPi 07 




1262 


2200 


Ide 00 


X is mueh larger than Y. Jump to d 


1265 


Ol 64 


Ol 64 


delay routine. ‘ 


1264 


6517 


nzb 17 




1265 


2005 


Idd 05 


y, is much larger than X. load Y in 


1266 


4001 


std 01 


cells 01 and 02 .and jvimp to 


1267 


2004 


Idd 04 


delay routine. 


1270 


4002 


std 02 


- 


1271 


2200 


Ide 00 


' 


1272 


0157 


0157 


. 


1275 


6527 


nzb 27 




1274 


2002 


Idd 02 


Exponents are equal. Right shift 


1275 


0111 


Is 6 


X and Y lower one place and 


1276 


0110 


Is 3 


add. Store result in cell 02 . 


1277 


0103 


Is 2 




1500 


1200 


Ipc 00 




1501 


5777 


5777 




1302 


4002 


std 02 




1505 


2004 


Idd 04 


* 


1504 


0111 


Is 6 




1305 


0110 


Is 5 


. 


1506 


0105 


Is 2 


' . • 


1307 


1506 


Ipb 06 


■ , ’ 


1310 


5002 


rad 02 


■ ‘ 


1311 


5401 


aod 01 


Modify exponent. 


1512 


2200 


Ide 00 


Jump to delay routine. 


1515 


0152 


0152 




1514 


6550 


nzb 50 




1315 


o 4 oo 


Idn 00 


zeroize temp, storage BEGIN FMU 


1516 


4261 


stf 61 




1517 


4261 


stf 61 




1520 


4261 


stf 61 • 




1521 


4261 


stf 61 


■ 


1522 


2401 


led 01 


load first argument (upper) 


1323 


6307 


njf 07 ' 


test for neg or positive; 


1324 


4001 


std 01 


store positive arg 


1525 


2402 


led 02 


compl and store lower 


1326 


4002 


std 02 




1527 


o 4 oi 


Idn 01 


remember first number neg 



A-17 



1350 

1531 

1332 

1353 

135^ 

1535 

1356 

1357 

13^0 

15^1 

15^2 

1345 

1344 

1345 

1346 

134? 

1350 

1351 

1552 

1553 

1554 

1355 

1356 

1357 

1360 

136i 

1362 

1563 

1364 

1565 

1366 

1567 

1370 

1371 

1372 

1575 

1374 

1575 

1576 

1577 

l400 

l4oi 

1402 

14 o 3 

l4o4 

i 405 

l4o6 

i 407 



4251 

6206 

2200 

0005 

0701 

6501 

0300 

2002 

6106 

2200 

0477 

0701 

6501 

7007 

2403 
6307 

U003 

2404 
4004 
0501 
5225 

6206 
2200 
0005 

0701 

6501 

0300 

2004 

6lli 

4001 

4002 
2200 

0462 

0701 

6501 

0300 

7007 

0514 

6305 

0000 

0000 

0000 

0000 

4301 

4705 

2305 

6207 

1200 



stf 51 

pjf 06 
Idc 00 

9005 

sbn 01 
n^b 01 
nop 

Idd 02 

nzf 06 
Idc 00 
0477 
sbn 01 
nzb 01 

m 07 
led 03 
njf 07 

std 03 
led 04 
std 04 
Icn 01 
raf 25 
pjf 06 

Idc 00 

0005 

sbn 01 
nzb 01 
nop 
Idd 04 
nzf 11 
std 01 
std 02 
Idc 00 

0462 
sbn 01 
nzb 01 
nop 
OPi 07 
Icn l4 
njf 05 



orig nximber pos - delay 



zero test first arg 



repeat tests on second arg 



j\:irap over temp storagd 



stb 01 


store bit count 


(-14) 


srb 05 


shift lower ans 


left one 


Idb 05 


load upper ans 




pjf 07 


check need for carry to upper 


Ipc 00 


remove left bit 


from lower 



A-18 




ft n 



l4io 


3777 


% 

3777 


■ 


lUn 


4311 


stb 11 


place into lower . 


lhi2 


5713 


aob 13 • 


execute carry ’ y ■ . • > 


i415 


0401 


Idn 01 


set up and jmp back ' , ‘ : < .■ „ 


Ihlk 


6205 


pjf 05 


. ^ • 


1U15 


2200 


Idc 00 


delay • • 


l4i6 


0004 


0004 


,ir 

> 


i4i7 


0701 


sbn 01 


t 

1 * 


1420 


6501 


nzb 01 


■ t 


1421 


47a 


srb 21 




1422 


2004 


Idd 04 


begin next bit multiplication 


1425 


6220 


pjf 20 


if next bit zero, no multiplication this loop 


1424 


2002 


Idd 02 


•• 


1425 


5325 


rab 25 


add to lower ans , > 


1426 


1402 


Isd 02 


check for occurrance ’ of end around carry ■ 


1427 


0201 


Ipn 01 


• 


1430 


6006 


zjf 06 


jump if no corr for carry 


1431 


5732 


aob 32 


corr for carry ‘ ' 


1432 


0501 


Icn 01 


( 

1 


1433 


5333 


Tab 33 


• 


1434 


04c_ 


16x1 01 




1435 


6a2 


pjf 12 




1436 


2200 


Idc 00 


delay 


1437 


0003 


0003 




l 44 o 


0701 


sbn 01 




l44l 


6501 


nzb 01 


• 


1442 


6205 


pjf 05 




1443 


2200 


Idc 00 


delay 


1444 


0010 


0010 




1445 


0701 


sbn 01 




1446 


6501 


nzb 01 




1447 


4404 


srd 04 


f 


1450 


5746 


aob 46 


1 

1 


1451 


6745 


njb 45 


return for next bit mult; if no jump, coef mult comp! 


1452 


2351 


Idb 51 


restore sign record for later ref 


1453 


4203 


stf 05 


. 


1454 


6205 


pjf 05 


* 


•1455 


6302 


njf 02 


' 


1456 


0000 






1457 


2003 


Idd 03 


add exponents 


l 46 o 


3600 


sbc 00 




l46i 


2000 


2000 . 




1462 


5001 


rad 01 


• 


1463 


6346 


njf 46 




l464 


2365 


Idb 65 


adjusts- for zero coef 


1465 


6107 


nzf 07 




l466 


0501 


Icn 01 


reduce exp by one 


1467 


5001 


rad 01 





A-19 



1470 

1471 

1472 

1475 

1474 

1475 

1476 

1477 

1500 

1501 

1502 

1505 

1504 

1505 

1506 

1507 

1510 

1511 

1512 

1515 

1514 

1515 

15i6 

1517 

1520 

1521 

1522 

1525 

1524 

1525 

1526 

1527 

1550 

1551 

1552 

1555 

1554 

1555 

1556 

1557 

1540 

1541 

1542 

1545 

1544 

1545 

1546 

1547 



6341 


njf 4l 




• 




0500 


Icn 00 ■ 


zeroize coef 






4002 


std 02 








6507 


Jijf 07 






i 


4002 


std 02 






, 


2200 


Idc 00 


delay' 




• 


0002 


0002 






• 


0701 


sbn 01 






• 


6501 


nzb 01 


1 




1 


0500 


nop 








2002 


Idd 02 








6505 


njf 05 


* 






4402 


srd 02 


left justify coef and adj 


exp 


* 


0501 


Icn 01 • 








5001 


rad 01 








6205 


pjf 05 








2200 


Idc 00 








0005 


0003 








0701 


sbn 01 






* 


6501 


nzb 01 








2556 


Idb 36 


examine sign of ans 






6006 


zjf 06 








2401 


led 01 


complement ans upper and : 


lower 


if sign is neg 


4001 


std 01 


' 




■ 


2402 


led 02 








4002 


std 02 








6206 


pjf 06 








2200 


Idc 00 








0004 


0004 








0701 


sbn 01 








6501 


nzb 01 








0500 


nop 








7007 


OPi 07 


return to M.P. 






0501 


Icn 01 








7777 


hit 77 






^ f 


0400 


Idn 00 


zeroize temp storage 




BEGIN FDV ' 


4261 


stf 61 








4261 


stf 61 








2403 


led 03 


test arguments as for. FMU 


EXCEPT DIVISOR =0 


6507 


njf 07 


gives error halt 




• 


4003 


std 03 


1 




1 , 

• ’ 


24 o 4 


led 04 • 






I 


4oo4 


std' 04 






• , 1 


04oi 


Idn 01 








4252 


stf 52 








6206 


pjf 06 




' 


V. 


2200 


Idc 00 








0005 


0005 









A-20 



1550 


0701 


shn 01 


1551 


6501 


nzh 01 


1552 


0300 


nop 


1553 


2004 


Idd 04 


1554 


6036 


zjf 36 


1555 


2401 


led 01 


1556 


6307 


njf 07 


1557 


4001 


std 01 


, 1560 


2402 


led 02 


1561 


4002 


std 02 


1562 


0501 


Icn 01 


1563 


5235 


raf 33 . 


1564 


6206 


pjf 06 


1565 


2200 


Idc 00 


1566 


0005 


0005 


1567 


0701 


shn 01 


1570 


6501 


nzb 01 


1571 


0300 


nop 


1572 


2002 


Idd. 02 • 


1575 


6110 


nzf 10 


1574 


4001 


std 01 


1575 


2200 


Idc 00 * 


1576 


0242 


0242 


1577 


0701 


3 on 01 


1600 


6501 


nzb 01 


1601 


0300 


nop 


1602 


7007 


Jpi 07 


1603 


0514 


Icn l 4 


l6o4 


4210 


stf 10 


1605 


2002 


Idd 02 


1606 


34 o 4 


sbd 04 


1607 


6210 


pjf 10 


1610 


5403 


aod 03 


1611 


6 i 42 


nzf 42 


1612 


0500 


Icn 00 


1613 


7772 


hit 72 


l 6 i 4 


0000 




1615 


0000 




1616 


0000 




1617 


2200 


Idc 00 


1620 


0002 


0002 


1621 


0701 


sbn 01 


' 1622 


6501 


nzb 01 


1623 


2002 


Idd 02 


1624 


34 o 4 


sbd 04 


1625 


6305 


njf 05 


1626 


4002 


std 02 


1627 


5712 


aob 12 



*J 



set counter 

coef check for start 

coef OU greater than 02 to 1617 



jump to 1653 



delay 



jump to 1632 
in 1615 



A-21 



delay 



1630 


040 l 


Idn 01 


1651 


6206 


pjf 06 


1632 


2200 


Idc 00 


1635 


0002 


0002 


163^ 


0701 


sbn 01 


1635 


6501 


nzb 01 


1636 


0300 


nop , 


1637 


5723 


aob 23 


l 64 o 


6220 


pjf 20 


l 64 i 


4724 


srb 24 


1642 


2002 


Idd 02 


1643 


6310 


njf 10 


l 644 


4402 


srd 02 


1645 


67a 


njb a 


1646 


2200 


Idc 00 


1647 


0004 


0004 


1650 


0701 


sbn 01 


1651 


6501 


nzb 01 


1652 


6613 


P> 15 


1653 


4402 


srd 02 


1654 


34 o 4 


sbd 04 


1655 


4002 


std 02 


1656 


0401 


Idn 01 


1657 


6630 


P 0 l 3 50 


1660 


2200 


Idf 00 


1661 


2001 


Idd 01 


1662 


3403 


sbd 03 


1663 


5001 


rad 01 


1664 


6752 


njb 52 


1665 


2350 


Idb 50 


1666 


4002 


std 02 


1667 


2551 


Idb 51 


1670 


6107 


nzf 07 


1671 


2200 


Idc 00 


1672 


0003 


0003 


1675 


0701 


sbn 01 


1674 


6501 


nzb 01 


1675 


0300 


nop 


1676 


6005 


zjf 05 


1677 


2401 


led 01 


1700 


4001 


std 01 


1701 


2402 


led. 02 


1702 


4002 


std 02 


1703 


7007 


Jpi 07 



increase counter by one 

coef div compl; Jump to l66o 
on 1615 

jimp to 1655 

jump to 162k 



jump to 1657 



form exponent 



place coef of ans in 0002 ■ 
check for sign of ans 



compl for neg ans 



return jump to M.P. 



A -22 



APPENDIX II 



STATE GENERATOR AND TEST 



1 . 



Approximation between samples, as follows: 



@B-@A 

“ “SE” 



A II- 1 



Both ®B and ®A are the average of four samples token as quickly as 
possible (141.3 u sec/samplc) . The time, ^t, between OB and OA is 
840 cycle times, or at 6.4 second/ cycle time, 5,376 u seco 

2 . MemS'ry regml rement s . 

Lower memory: 01-04, 07, 10, 20-47, and 61-67, 

Load State Generator: 2000-2322. 

Load 0ffitp®t Section: 2323-2357, 

3. SMbroiffitiiiies required . 

Oonstaftt Time Floating Point Arithmetic Package. (APP. I) 

A qttick "Divide-by-4" routine, included with this appendix. 

4. The progr<ams for the state generator and the "Divide-by-4" 
subroutine follow. Conecents are included with the programs. 
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1761 

1762 

1765 

1764 

1765 

1766 

1767 

1770 

1771 

1772 

1775 

1774 

1775 

1776 

1777 

2000 

2001 

2002 

2005 

2004 

2005 

2006 

2007 

2010 

2011 

2012 

2015 

2014 

2015 

2016 

2017 

2020 

2021 

2022 

2025 

2024 

2025 

2026 

2027 

2050 



STATE GENEEIATOR 



7500 


exf 


00 


l401 


1401 


7600 


ina 


00 


4262 


stf 62 


7500 


exf 


00 


l401 


l4oi 


7600 


ina 00 


4257 


stf 57 


7500 


exf 


00 


l4oi 


l401 


7600 


ina 00 


4254 


stf 54 


7500 


exf 


00 


l4oi 


l401 


7600 


ina 


00 


4251 


stf 


51 


4001 


std 


01 


0101 


pta 




o6o4 


adn 


04 


4007 


std 


07 


7061 


'OPi 


61 


2001 


Idd 


01 


4021 


std 


21 


2240 


Idf 


40 


4001 


std 


01 


0101 


pta 




o6o4 


adn 


04 


4007 


, std 


07 


7061 


jpi 


61 


2001 


Idd 


01 


5021 


rad. 


21 


2227 


Idf 


27 


4001 


std 


01 


0101 


pta 




o6o4 


adn 


04 


4007 


std 


07 


7061 


Jpi 


61 


2001 


Idd 


01 


5021 


rad 


21 


2216 


Idf 


16 



A- 24 



2031 


4001 


s-td 01 


2052 


•0101 


pta 


2033 


06 o 4 


adn 04 


203H 


4007 


std 07 


2035 


7061 , jpi 61 


2036 


2001 


Idd 01 


2037 


50 a 


rad a 


2040 


2600 


Icf 00 


204l 


o464 


Idn 64 


2042 


0601 


adn 01. 


2043 


6501 


nzb 01 


2044 


0300 


nop 


2045 


6205 


PJf 05 


2046 


OAl 


0000 


2047 


0A2 


0000 


2050 


0A3 


0000 


2051 


0A4 


0000 


2052 


7500 


exf 00 


2053 


l4oi 


l401 


2054 


7600 


ina 00' 


2055 


4256 


stf 56 


2056 


7500 


exf 00 


2057 


l401 


l401 


2060 


7600 


ina 00 


2061 


4253 


stf 53 


2062 


7500 


exf 00 


2063 


l4oi 


l401 


2064 


7600 


ina 00 


2065 


4250 


stf 50 


2066 


7500 


exf 00 


2067 


l401 


l401 


2070 


7600 


ina 00 


2071 


4245 


stf 45 


2072 


4001 


std 01 


2075 


0101 


pta 


2074 


o6o4 


adn 04 


2075 


4007 


s'td 07 


2076 


7061 


Opi 61 


2077 


2001 


Idd 01 


2100 


4022 


std 22 


2101 


2234 


Idf 34 


2102 


4001 


S'td 01 


2103 


0101 


pta 


2104 


o6o4 


adn 04 


2105 


4007 


Std 07 


ao6 


7061 


jpi 61 


ao7 


2001 


Idd 01 


2110 


5022 


rad 22 



GA avg in 0021 



2111 


2225 


Idf 


25 


2112 


4001 


s-td 


01 


2115 


0101 


pta 




2114 


0604 


adn 


04 


ai5 


4007 


std 


07 


2116 


7061 


Jpi 


61 


2117 


2001 


Idd 


01 


2120 


5022 


rad 


22 


2121 


2212 


Idf 


12 


2122 


4001 


s-fcd 


01 


2125 


0101 


pta 




2124 


0604 


adn 


04 


2125 


4007 


std 


07 


2126 


7061 


jpi 


61 


2127 


2001 


Idd 


01 


2150 


5022 


rad 


22 


2151 


6206 


Pjf 


06 


2152 


6506 


njf 


06 


2155 


OBI 


0000 , 


2154 


0B2 


0000 


2155 


OB5 


0000 


2156 


0B4 


0000 


2157 


0500 


nop 




2l40 


5421 


std 


21 


2l4l 


4024 


std 


24 


2142 


0101 


pta 




2145 


0605 


adn 


05 


2144 


4007 


std 


07 


21-45 


2024 


Idd 


24 


2 i 46 


7066 


jpi 


66 


2147 


2001 


Idd 


01 


2150 


4050 


std 


30 


2151 


2002 


Idd 


02 


2152 


4051 


std 


51 


2155 


2044 


Idd 


44 


2154 


4005 


std 


05 


a55 


2045 


Idd 


45 


2156 


4oo4 


std 


04 


2157 


olor 


pta 




2160 


o6o4 


adn 


04 


2161 


4007 


std 


07 


2162 


7065 


jpi 


65 


2165 


2001 


Idd 


01 


2 i 64 


4052 


std 


52 


2165 


2002 


Idd 


02 


2166 


4055 


std 


33 


2167 


7500 


exf 


00 


2170 


l4oi 


l401 






GB avg in 0022 



OB - 0A 



0B - 0A to floating point 



0B DOT formed 



A-26 




0 




a?i 

2172 

2175 

217 ^ 

2175 

2176 

2177 

2230 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2210 

2211 

2212 

2215 

2214 

2215 

2216 

2217 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2250 



7600 


ina 


00 


4256 


stf 


56 


7500 


exf 


00 


l4oi 


l401 


7600 


ina 


00 


4253 


stf 


55 


7500 


exf 


00 


l4oi 


l4oi 


7600 


ina 


00 


4250 


stf 


50 


7500 


exf 


00 


l4oi 


l401 


7600 


ina 


00 


4245 


stf 


45 


4001 


std 


01 


0101 


pta 




o6o4 


adn 


04 


4007 


std 


07 


7061 


jpi 


61 


2001 


Idd 


01 


4023 


std 


25 


2234 


Idf 


5^ 


4001 


std 


01 


0101 


pta 




o6o4 


adn 


04 


4007 


std 


07 


7061 


Jpi 


61 


2001 


Idd 


01 


5023 


rad 


25 


2223 


Idf 


25 


4001 


std 


01 


0101 


pta 




o6o4 


adn 


04 


4007 


std 


07 


7061 


Jpi 


61 


2001 


Idd 


01 


5023 


rad 


25 


2212 


Idf 


12 


4001 


std 


01 


0101 


pta 




0604 


adn 


04 


4007 


std 


07 


7061 


Jpi 


61 


2001 


Idd 


01 


5023 


rad 


25 


6206 


Pjf 


06 


6306 


njf 


06 


OCl 


0000 



9 C avg in 0023 



A-27 



2251 


0C2 


0000 


2252 


0C5 


0000 


2255 


0C4 


ooop 


2254 


0500 


nop 


2255 


5422 


sbd 22 


2256 


4025 


std 25 


2257 


0101 


pta 


2260 


0605 


adn 05 


2261 


4007 


std 07 


2262 


2025 


Idd 25 


2265 


7066 


jpi 66 


2264 


2001 


Idd 01 


2265 


4054 


std 54 


2266 


2002 


Idd 02 


2267 


4035 


std 35 


2270 


2044 


Idd 44 


2271 


4003 


std 03 


2272 


2045 


Idd 45 


2275 


4004 


std 04 


2274 


0101 


pta 


2275 


o6o4 


adn 04 


2276 


4007 


std 07 


2277 


7065 


Jpi 65 


2500 


2001 


Idd 01 


2501 


4036 


std 36 


2502 


2002 


Idd 02 


2503 


4037 


std 37 



* 0C - 0B formed 



0C - 0B to floating point 



0C DOT formed 



continue to OUTPUT ROUTINE or CONTROL PROGRAM 



A-28 




I 



SUBROUTINE DIVIDE BY FOUR 



1704 


2001 


Idd 01 


pick-up argaT.ent 


1705 


6212 


pjf 12 .. 


■, 'sign check 

1 


1706 


0111 


Is 6 ' ■ 


1707 


0110 


Is 3 


f divide by 4 


1710 


0102 


Is 1 ■. 


J 


1711 


1200 


Ipc 00 


7. ir.ask 


1712 


1777 


1777 


J 


1713 


3200 


adc 00 


extend negative sign bi 


1714 


6000 


6000 


1715 


4001 


std 01 


store answer 


1716 


6512 


njf 12 


Jump b"'’ positive uath 


1717 


0111 


Is 6 


1 ^ 


1720 


0110 


Is 3 


L divide by ^ 


1721 


0102 


Is 1 


i 


1722 


1200 


Ipc 00 


? mask 


1725 


1777 


1777 


J 


1724 


4 ooi 


std 01 


store answer 


1725 


0300 


nop 


7 


1726 


0300 


nop 


> time delay 


1727 


0300 


nop 


i 


1730 


7007 


OPi 07 


return Jump to M.P. 



Jump Into and return Jump out of this subroutine In 
the same manner as for the floating point routines. 



A-29 



2353 

2351+ 

2355 

2356 

2357 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

236? 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2400 

2401 

2402 

2403 

24o4 

2405 

24o6 

2407 



OUTPUT ROUTINE FOR © DOT 



2036 Idd 36 

4001 std 01 

2037 Idd 37 

4002 std 02 
2200 Idc 00 

2002 2002 

4003 std 03 
2200 Idc 00 

6221 6221 

4004 std 04 
0101 pta 
o6o4 adn 04 
4007 std 07 

7065 jpi 65 divide out w; riCirnalizes output 

0101 pta 
o6o4 adn 04 
4007 std 07 

7067 OPi 67 9 DOT to fixed point 

0300 nop 
4020 std 20 
7500 exf 00 

2401 2401 
7304 out 04 
0021 0021 
6103 nzf 03 
6002 zjf 02 
0020 0020 
7010 jpi 10 
7757 hit 57 



A-30 




4 














I 



I 



! T 




s;. 




I 

I 

y 







r 

’ 



t 



I 



